home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / freemenu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.3 KB  |  48 lines
  1. 1  REM MENU PROGRAM
  2. 3  REM CHANGES LOWER TO UPPER CASE LETTERS FIRST RIGHT OFF THE BAT BY GOLLY
  3. 5  DEF SEG=&H40:POKE &H17,(PEEK(&H17)AND &HFFBF)+64:DEF SEG=&HB000:POKE 3998,24
  4. 7  KEY OFF:WIDTH 40:CLS:PRINT:PRINT TAB(15);"MENU PROGRAM":PRINT
  5. 11  PRINT "1  GAME PROGRAM"
  6. 12  PRINT "2  LIST TO DO"
  7. 13  PRINT "3  PRINTER LINE SPACING PGM."
  8. 14  PRINT "4  DATABASE CHANGE RECORD"
  9. 15  PRINT "5  PRINT DATABASE PGM."
  10. 16  PRINT "6  CREATE DATABASE PGM."
  11. 17  REM PRINT "  PGM NAME   "
  12. 18  REM PRINT "  PGM NAME   "
  13. 19  REM PRINT "  PGM NAME   "
  14. 20  REM PRINT "  PGM NAME   "
  15. 21  REM PRINT "  PGM NAME   "
  16. 22  REM PRINT "  PGM NAME   "
  17. 23  REM PRINT "  PGM NAME   "
  18. 24  REM PRINT "  PGM NAME   "
  19. 25  REM PRINT "  PGM NAME   "
  20. 26  REM PRINT "  PGM NAME   "
  21. 27  REM PRINT "  PGM NAME   "
  22. 28  REM PRINT "  PGM NAME   "
  23. 29  REM PRINT "  PGM NAME   "
  24. 30  REM PRINT "  PGM NAME   "
  25. 100  PRINT:PRINT:INPUT"ENTER NUMBER OF WHAT YOU WANT ===> ",Q1
  26. 150  CLS:ON Q1 GOTO 201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220
  27. 201  LOAD "TEST3.BAS",R
  28. 202  LOAD "ERRANDS.BAS",R
  29. 203  LOAD "LINESPC.BAS",R
  30. 204  LOAD "DBCHGREC.BAS",R
  31. 205  LOAD "DBPRINT.BAS",R
  32. 206  LOAD "DBGEN.BAS",R
  33. 207  REM "YURPGM.HR"
  34. 208  REM "YURPGM.HR"
  35. 209  REM "YURPGM.HR"
  36. 210  REM "YURPGM.HR"
  37. 211  REM "YURPGM.HR"
  38. 212  REM "YURPGM.HR"
  39. 213  REM "YURPGM.HR"
  40. 214  REM "YURPGM.HR"
  41. 215  REM "YURPGM.HR"
  42. 216  REM "YURPGM.HR"
  43. 217  REM "YURPGM.HR"
  44. 218  REM "YURPGM.HR"
  45. 219  REM "YURPGM.HR"
  46. 220  REM "YURPGM.HR"
  47. 900  END
  48.